﻿
Namespace LightSwitchApplication

    Public Class Home

        Private Sub Home_InitializeDataWorkspace(saveChangesTo As System.Collections.Generic.List(Of Microsoft.LightSwitch.IDataService))
            ' Write your code here.
            Me.UserName = Me.Application.User.Name
            TextSearchCustomer = "Searches for an existing customer in the system."
            ImageSearchCustomer = MyImageHelper.GetImageByName("1Users-search-48.png")
            TextSearchAppointment = "Searches for an existing appointment in the system."
            ImageSearchAppointment = MyImageHelper.GetImageByName("1Desk-Calendar-256.png")
        End Sub

        Private Sub SearchCustomerMethod_Execute()
            ' Write your code here.
            Me.Application.ShowSearchCustomerByUser()
        End Sub

        Private Sub SearchAppointmentsMethod_Execute()
            ' Write your code here.
            Me.Application.ShowAllTransactions()
        End Sub
    End Class

End Namespace
